home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_b / struti.pas < prev    next >
Pascal/Delphi Source File  |  1995-04-22  |  859b  |  43 lines
  1. PROCEDURE Lowerize(VAR Str : String);
  2.   VAR L,V : Integer;
  3. BEGIN
  4.   FOR L := 1 TO MaxString DO
  5.     BEGIN
  6.       V := Ord(Str[L]);
  7.       IF (91 > V) AND (V > 64) THEN
  8.         Str[L] := Chr(V + 32)
  9.     END
  10. END;(* letters to lower case *)
  11.  
  12. PROCEDURE Upperize(VAR Str : String);
  13.   VAR L,V : Integer;
  14. BEGIN
  15.   FOR L := 1 TO MaxString DO
  16.     BEGIN
  17.       V := Ord(Str[L]);
  18.       IF (123 > V) AND (V > 96) THEN
  19.         Str[L] := Chr(V - 32)
  20.     END
  21. END;(* letters to upper case *)
  22.  
  23. PROCEDURE Invertize(VAR Str : String);
  24.   VAR
  25.      L,V : Integer;
  26. BEGIN
  27.  FOR L := 1 TO MaxString DO
  28.   BEGIN
  29.    V := Ord(Str[L]);
  30.    Str[L] := Chr(V + 128)
  31.   END
  32. END;(* all of string to inverse *)
  33.  
  34. PROCEDURE Purge(VAR Str : String);
  35.   VAR L,V : Integer;
  36. BEGIN
  37.   FOR L := 1 TO MaxString DO
  38.     BEGIN
  39.       V := Ord(Str[L]);
  40.       IF (V < 32) OR (V > 122) THEN Str[L] := Chr(32)
  41.     END
  42. END;
  43.